home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / amazin1a / form4.frm < prev    next >
Text File  |  1999-09-05  |  3KB  |  92 lines
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  3. Begin VB.Form Form4 
  4.    BorderStyle     =   0  'None
  5.    Caption         =   "Form4"
  6.    ClientHeight    =   1950
  7.    ClientLeft      =   0
  8.    ClientTop       =   0
  9.    ClientWidth     =   4710
  10.    LinkTopic       =   "Form4"
  11.    ScaleHeight     =   1950
  12.    ScaleWidth      =   4710
  13.    ShowInTaskbar   =   0   'False
  14.    StartUpPosition =   3  'Windows Default
  15.    Begin VB.CommandButton Command1 
  16.       Caption         =   "Cancel"
  17.       Height          =   375
  18.       Left            =   1440
  19.       TabIndex        =   2
  20.       Top             =   1440
  21.       Width           =   1695
  22.    End
  23.    Begin VB.Timer Timer1 
  24.       Enabled         =   0   'False
  25.       Interval        =   200
  26.       Left            =   3960
  27.       Top             =   240
  28.    End
  29.    Begin MSComctlLib.ProgressBar ProgressBar1 
  30.       Height          =   495
  31.       Left            =   120
  32.       TabIndex        =   0
  33.       Top             =   840
  34.       Width           =   4455
  35.       _ExtentX        =   7858
  36.       _ExtentY        =   873
  37.       _Version        =   393216
  38.       Appearance      =   1
  39.    End
  40.    Begin VB.Label Label1 
  41.       Caption         =   "File Search in Progress"
  42.       BeginProperty Font 
  43.          Name            =   "MS Sans Serif"
  44.          Size            =   9.75
  45.          Charset         =   0
  46.          Weight          =   700
  47.          Underline       =   0   'False
  48.          Italic          =   0   'False
  49.          Strikethrough   =   0   'False
  50.       EndProperty
  51.       Height          =   375
  52.       Left            =   1080
  53.       TabIndex        =   1
  54.       Top             =   240
  55.       Width           =   2535
  56.    End
  57.    Begin VB.Shape Shape1 
  58.       BorderWidth     =   3
  59.       Height          =   1920
  60.       Left            =   15
  61.       Top             =   15
  62.       Width           =   4680
  63.    End
  64. End
  65. Attribute VB_Name = "Form4"
  66. Attribute VB_GlobalNameSpace = False
  67. Attribute VB_Creatable = False
  68. Attribute VB_PredeclaredId = True
  69. Attribute VB_Exposed = False
  70. Dim firstt As Boolean
  71.  
  72. Private Sub Command1_Click()
  73. ProgressCancel = True
  74. End Sub
  75.  
  76. Private Sub Form_Load()
  77. firstt = True
  78. Top = Form1.Top + ((Form1.Height / 2)) - (Height / 2)
  79. Left = (Form1.Left + (Form1.Width / 2)) - (Width / 2)
  80. End Sub
  81.  
  82. Private Sub Form_Paint()
  83. If firstt Then Timer1.Enabled = True
  84. End Sub
  85.  
  86. Private Sub Timer1_Timer()
  87. firstt = fasle
  88. Form1.FindFile Left(Form1.Drive1.Drive, 1) & ":\", Form1.Combo1.Text
  89. Timer1.Enabled = False
  90. Unload Me
  91. End Sub
  92.